0 SCREEN1,2,0:COLOR2,1,4:A$="":FORT=1TO5:A$=A$+A$:NEXT:V=14336:Y=96:R=1:B=255
1 CLS:P=0:B$="F87F3F1F1F1F3F7C0000E09EFFFEE00000000779FF7F07001FFEFCF8F8F8FC3E"
2 FORK=1TO4:FORT=0TO7:VPOKEV+T,VAL("&h"+MID$(B$,R,2)):R=R+2:NEXT:V=V+16:NEXT:D=0
3 VPOKEV+6,B:FORK=1TO40:J=INT(RND(1)*767):VPOKE6144+J,46:NEXT:G=2:F=1:I=209:W=I
4 KEYOFF:LOCATE0,0:?"SCORE";P:VPOKE8197,241:IFB<0THENB=255:D=0
5 J=STICK(0):S=STRIG(0):B=B-16:K=K+16:IFD=0THENC=8*(INT(RND(1)*20)+1):D=1
6 Y=Y-8*(J=5ANDY<153)+8*(J=1ANDY>15):PUTSPRITE1,(16,Y),15,0:PUTSPRITE2,(B,C),8,1
7 IFC=YANDB<32THENCLS:VPOKE6912,208:LOCATE7,12:?"FINAL SCORE";P:LOCATE0,0:END
8 LOCATE0,21:?MID$(A$,F,29):SWAPF,G:PUTSPRITE3,(K,I),5,2:IF(S)THENI=Y:K=32
9 IFK>=BANDI=CTHENP=P+10:D=0:B=255:I=W:GOTO4ELSEIFK=240THENI=W:GOTO4ELSE4


Pintus Giuseppe Ettore
thegeps@gmail.com